home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 May / CD Rom Data Mayıs 2005.iso / Media / Egitim.dcr / script_1_script_DersEkrani.ls < prev    next >
Encoding:
Text File  |  2005-04-27  |  414 b   |  26 lines
  1. global DersNo
  2.  
  3. on beginSprite
  4.   sprite(1).member = member(DersNo, "Ders")
  5.   sprite(1).movieRate = 1
  6. end
  7.  
  8. on exitFrame me
  9.   myMember = sprite(1).member
  10.   myDuration = member(myMember).duration
  11.   myMovietime = sprite(1).movieTime
  12.   if myMovietime >= myDuration then
  13.     sound(1).stop()
  14.     go(1)
  15.   end if
  16.   go(the frame)
  17. end
  18.  
  19. on keyUp
  20.   kc = _key.keyCode
  21.   if kc = 53 then
  22.     sound(1).stop()
  23.     go(1)
  24.   end if
  25. end
  26.